home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / amoscums.lha / amosaicmailtoums.rexx < prev   
OS/2 REXX Batch file  |  1996-05-01  |  1KB  |  65 lines
  1. /* $VER: amosaicmailtoums.rexx 0.21 (21.04.96)     */
  2. /* by Lothar Bartsch (lbartsch@anjou.hb.provi.de)  */
  3. /*                                                 */
  4. /* This script use mailto: with AMosaic and UMS    */
  5. /*                                                 */
  6. /* Usage:                                          */
  7. /* setenv Mosaic/editor ed sticky                  */
  8. /* setenv Mosaic/sendmail rx amosaicmailtoums.rexx */
  9.  
  10. /* Insert your configs here */
  11. name = ""
  12. password = ""
  13. server = ""
  14.  
  15.  
  16. OPTIONS RESULTS
  17.  
  18. CALL AddLib("rexxsupport.library", 0, -30, 0)
  19. CALL AddLib("ums.library", 0, -210, 11)
  20. CALL UMSInitConsts()
  21.  
  22. msgfile = 't:.temp.'Pragma(ID)
  23.  
  24. Open(mail,msgfile,'W')
  25.  
  26. addr = Word(ReadLn('STDIN'),2)
  27. parse VAR addr user '@' dom .
  28. subj = SubWord(ReadLn('STDIN'),2)
  29. nwsr = SubWord(ReadLn('STDIN'),2)
  30.  
  31. DO UNTIL Eof('STDIN')
  32.   CALL WriteLn(mail, ReadLn('STDIN'))
  33. END
  34.  
  35. Close(mail)
  36.  
  37. /* Login */
  38.  
  39. account = UMSLogin(name,password,server)
  40. IF account = 0 THEN DO
  41.   EXIT 10
  42. END
  43.  
  44. /* Write the message */
  45.  
  46. DROP msg.
  47. msg.UMSCODE_MsgText_FILE = msgfile
  48. msg.UMSCODE_ToAddr       = user'@'dom
  49. msg.UMSCODE_ToName       = user
  50. msg.UMSCODE_Subject      = subj
  51. msg.UMSCODE_Newsreader   = nwsr
  52.  
  53. num = UMSWriteMsg(account, msg.)
  54.  
  55. /* Logout */
  56.  
  57. IF account ~= 0 THEN DO
  58.   CALL UMSLogout(account)
  59.   account = 0
  60. END
  61.  
  62. CALL delete(msgfile)
  63.  
  64. EXIT
  65.